home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 27.zip
/
BS1 part 27
/
ImageMaster_d3.adf
/
piarc.lzh.parta
/
HBlind.rxwp
< prev
next >
Wrap
Text File
|
1992-10-27
|
553b
|
24 lines
/* Test rexx script to fill wipe buffer */
parse arg cframe mframe
options;
address;
if mframe = 0 then do
call open(fhandle,'ram:IM_WIPE.tmp2','write'); /* open the file */
junk = writeln(fhandle, 0);
junk = writeln(fhandle, 1);
junk = writeln(fhandle, 1);
junk = writeln(fhandle, 1);
junk = writeln(fhandle, 0);
call close(fhandle); /* close the file */
end;
else do
fp = cframe / mframe;
address("IM_WIPER");
'box 0,0,1,'||fp
'close'
end;
exit 0;